home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / ShareMailGiftware / Videokonverter / Videokonverter < prev    next >
Text File  |  2002-10-03  |  5KB  |  232 lines

  1. G4C
  2.  
  3. WinBig -1 -1 800 500 "Videokonverter                 © 2002 Carsten Siegner"
  4. WinType 11110011
  5. ;Winbackground Image Hintergrund ""
  6. ResInfo 13 1024 768
  7.  
  8. xOnLoad
  9. ;LoadImage  Hintergrund-fertig.iff Hintergrund Workbench
  10.  
  11. GuiOpen #this
  12. xOnClose
  13.      GuiQuit #this
  14. winfont helvetica.font 11 000
  15. ;------------------------------------
  16.  
  17. ;-------------------------------------
  18. xlistview 15 20 200 150 "Eingang" B "Work:" 1 dir
  19. ;-------------------------------------
  20. ;-------------------------------------
  21. delvar scl
  22. delvar .Verzeichnis
  23. searchvar B : ci first
  24. setvar pos $$SEARCH.POS
  25. setvar len $$SEARCH.LENGTH
  26. cutvar B cut char $pos Root
  27. cutvar B cut char $((0 - ($len - $pos )) + 1) .Verzeichnis
  28. setvar scl /
  29. appvar scl $Root
  30. appvar scl /
  31. appvar scl $.Verzeichnis
  32. ;-------------------------------------
  33. xbutton 125 175 40 20 Audio
  34. setvar input 1
  35. setvar stream1 $scl
  36. update #this 3 $scl
  37.  
  38. xbutton 170 175 40 20 Video
  39.  
  40. setvar input 2
  41. setvar stream2 $scl
  42. update #this 1 $scl
  43. ;----------------------------------
  44.  
  45. xbutton 70 175 50 20 Laufw.
  46. lvdir disks
  47.  
  48. xbutton 15 175 50 20 Mutterv.
  49. lvdir parent
  50.  
  51. xtextin 45 200 170 20 Video  $stream2 "" 80
  52. gadid 1
  53. setvar video $$TI.REC
  54.  
  55. xtextin 45 230 170 20 Audio  $stream1 "" 80
  56. gadid 3
  57. setvar audio $$TI.REC
  58. ;--------------------------------------
  59.  delvar scl2
  60. ;--------------------------------------
  61. xlistview 250 20 200 150 "Ausgang" A "Work:" 1 dir
  62.  
  63. ;-------------------------------------
  64.  
  65.  
  66. delvar .Verzeichnis2
  67. setvar dir $$LV.DIR
  68. searchvar dir : ci first
  69. setvar pos2 $$SEARCH.POS
  70. setvar len2 $$SEARCH.LENGTH
  71. cutvar dir cut char $pos2 Root2
  72. cutvar dir cut char $((0 - ($len2 - $pos2 )) + 1) .Verzeichnis2
  73. setvar scl2 /
  74. appvar scl2 $Root2
  75. appvar scl2 /
  76. appvar scl2 $.Verzeichnis2
  77. appvar scl2 /xxxxxxx-Datei
  78.  
  79.  
  80. ;-------------------------------------
  81. update #this 4 $scl2            
  82. xtextin 280 200 170 20 Datei  $scl2 "" 80
  83. gadid 4
  84. setvar text $$TI.REC
  85.  
  86. xbutton 350 175 50 20 Laufw.
  87. lvdir disks
  88.  
  89. xbutton 290 175 50 20 Mutterv.
  90. lvdir parent
  91.  
  92.  
  93.  
  94.  
  95. ;--------------------------------------
  96. Line 0 260 500 260 7
  97. Line 500 0 500 450 7
  98. Line 500 450 797 450 7
  99. ;-------------------------------------
  100.  
  101.  
  102.  
  103. xlistview 520 20 100 150 "Eingangformat" A lister.txt 1 show
  104. setvar format1 $$LV.REC
  105. update #this 5 $format1
  106. xlistview 650 20 100 150 "Ausgangformat" A lister-2.txt 1 show
  107. setvar format2 $$LV.REC
  108. update #this 6 $format2
  109. xlistview 520 200 100 150 "Eingangcodec" A lister-codec.txt 1 show
  110. setvar codec1 $$LV.REC
  111. update #this 7 $codec1
  112. xlistview 650 200 100 150 "Ausgangcodec" A lister-codec2.txt 1 show
  113. setvar codec2 $$LV.REC
  114. update #this 8 $codec2
  115. ;----------------------------------------------
  116. xtextin 100 300 90 20  Eingangformat $format1 "" 80
  117. gadid 5
  118. xtextin 100 330 90 20  Ausgangformat $format2 "" 80
  119. gadid 6
  120. xtextin 100 360 90 20  Eingangcodec  $codec1 "" 80
  121. gadid 7
  122. xtextin 100 390 90 20  Ausgangcodec  $codec2 "" 80
  123. gadid 8
  124. ;---------------------------------------------
  125. xcheckbox 470 270 20 20 "Getrennte Eingangsdateien" ge 1 0 off
  126. xcheckbox 470 295 20 20 " Nutze Formatrequester Eingang" nfe 1 0 off
  127. xcheckbox 470 320 20 20 "Nutze Codecrequester Eingang" nce 1 0 off
  128. xcheckbox 470 345 20 20 "Nutze Formatrequester Ausgang" nfa 1 0 off
  129. xcheckbox 470 370 20 20 "Nutze Codecrequester Ausgang" nca 1 0 off
  130. xcheckbox 470 395 20 20 "Ausgangsvideo scalieren" as 1 0 off
  131. xcheckbox 470 420 20 20 "Ausgangsvideo glätten" agg 1 0 off
  132. xcheckbox 470 445 20 20 "Ausgangsvideo ist für eine VideoCD" vcd 1 0 off
  133. xtextin 660 465 90 20  "Bildgröße = Breite x Höhe" scale "" 80
  134. xcycler 660 360 40 20 "Audiokanäle" aud 
  135. cstr 2 2
  136. cstr 1 1
  137. xcycler 660 390 60 20 "Audiobitrate in kbit/s" aub
  138. cstr 192 192
  139. cstr 224 224
  140. cstr 256 256
  141. cstr 56 56
  142. cstr 64 64
  143. cstr 96 96
  144. cstr 112 112
  145. cstr 128 128
  146. xcycler 660 420 70 20 "Audiosamplingrate in Hz" aus
  147. cstr 44100 44100
  148. cstr 48000 48000
  149. cstr 22050 22050
  150.  
  151. ;-------------------------------------------
  152. xbutton 150 450 100 20 Abruch
  153. breaktask ffmpeg c
  154. xbutton 20 450 100 20 Konvertieren
  155. setstack 1000000
  156. if $nfe = 0
  157. or $nfe = ""
  158. delvar format-i 
  159. endif
  160. if $nfe = 1
  161. setvar format-i "-f $format1"
  162. endif
  163. if $nce = 0
  164. or $nce = ""
  165. delvar codec-i 
  166. endif
  167. if $nce = 1
  168. setvar codec-i "-vcodec $codec1"
  169. endif
  170. if $nfa = 0
  171. or $nfa = ""
  172. delvar format-a 
  173. endif
  174. if $nfa = 1
  175. setvar format-a "-f $format2"
  176. endif
  177. if $nca = 0
  178. or $nca = ""
  179. delvar codec-a 
  180. endif
  181. if $nca = 1
  182. setvar codec-a " -vcodec $codec2"
  183. endif
  184. if $as = 0
  185. or $as = ""
  186. delvar scale1 
  187. endif
  188. if $aud = ""
  189. setvar kanal "-ac 2 -sameq"
  190. endif
  191. if $aud != ""
  192. setvar kanal "-ac $aud -sameq"
  193. endif
  194. if $aub = ""
  195. setvar bit "-ab 192 -sameq"
  196. endif
  197. if $aub != ""
  198. setvar bit "-ab $aub -sameq"
  199. endif
  200. if $aus = ""
  201. setvar sampling "-ar 44100 -sameq"
  202. endif
  203. if $aus != ""
  204. setvar sampling "-ar $aus -sameq"
  205. endif
  206. if $agg = 0
  207. or $agg = ""
  208. setvar blur ""
  209. endif
  210. if $agg = 1
  211. setvar blur "-qblur"
  212. endif
  213. if $vcd = 0
  214. or $vcd = ""
  215. setvar vcd1 ""
  216. endif
  217. if $vcd = 1
  218. setvar vcd1 "-vcd"
  219. endif
  220. if $as = 1
  221. setvar scale1 " -s $scale -sameq"
  222. endif
  223. if $ge = 0
  224. or $ge = ""
  225. setvar konverter "$format-i $codec-i -i $video $format-a -benchmark -4mv $blur -g 300 $kanal $sampling $bit $codec-a $scale1 $vcd1 $text"
  226. endif
  227. if $ge = 1
  228. setvar konverter "$format-i $codec-i -i $video -i $audio $format-a -benchmark  -4mv $blur -g 300  $kanal $sampling $bit $codec-a $scale1 $vcd1 $text"
  229. endif
  230. run 'ffmpeg $konverter'
  231. setstack 4000
  232.